$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_PnPEntity WHERE ConfigManagerErrorCode = 0")
For $objItem in $colItems
   ConsoleWrite( $objItem.DeviceID & ": " & $objItem.Description & @CRLF )
Next
